home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GEOS Mega ASM (19xx)(-).d64 / list4-7 < prev    next >
Text File  |  2019-04-13  |  670b  |  36 lines
  1. if     .p
  2.      t     "TopSym"
  3. endif
  4.  
  5.      t     "TestMen}"
  6.  
  7. :xlinks     = 50
  8. :xrechts     = 2 * 150
  9. :y1     = 60
  10. :y2     = y1 + 40
  11.  
  12.      ldy     #50     ; y-Koordinate
  13.      ldx     #%11111111     ; Linienmuster
  14.      jsr     waagerechte_Linie
  15.  
  16.      ldy     #100
  17.      ldx     #%10101010
  18.      jsr     waagerechte_Linie
  19.  
  20.      ldy     #150
  21.      ldx     #%11001100
  22.      jmp     waagerechte_Linie
  23.  
  24. :waagerechte_Linie  
  25.      lda     #<xlinks
  26.      sta     r3L
  27.      lda     #>xlinks
  28.      sta     r3H
  29.      sty     r11L
  30.      lda     #<xrechts
  31.      sta     r4L
  32.      lda     #>xrechts
  33.      sta     r4H
  34.      txa          ; Linienmuster in den Akku
  35.      jsr     HorizontalLine
  36.      rts